data %>%
ggplot() +
geom_col(aes(ranking, gdpPercap, fill = country)) +
#geom_text(aes(ranking, gdpPercap, label = gdpPercap), hjust=-0.1) +
geom_text(aes(ranking, y=0 , label = country), hjust=1.1) +
geom_text(aes(x=15, y=max(gdpPercap) , label = as.factor(year)),
vjust = 0.1, alpha = 0.1, col = "gray", size = 3) +
coord_flip(clip = "off", expand = FALSE) + scale_x_reverse() +
theme_minimal() +
theme(panel.grid = element_blank(),
legend.position = "none",
axis.ticks.y = element_blank(),
axis.title.y = element_blank(),
axis.text.y = element_blank(),
plot.margin = margin(1, 4, 1, 3, "cm")) +
transition_states(year, state_length = 0, transition_length = 2) +
enter_fade() +
exit_fade() +
ease_aes('quadratic-in-out')